home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Not Passing History.cpt / Not Passing History / background_2688.txt < prev    next >
Text File  |  1992-02-09  |  2KB  |  80 lines
  1. -- background: 2688 from stack: in
  2. -- bmap block id: 3308
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: main background
  6. ----- HyperTalk script -----
  7. on arrowKey direction
  8.   if direction is "Left" then
  9.     visual wipe right
  10.     pass arrowKey
  11.   else
  12.     if direction is "right" then
  13.       visual wipe left
  14.       pass arrowKey
  15.     end if
  16.   end if
  17. end arrowKey
  18.  
  19.  
  20. -- part 24 (button)
  21. -- low flags: 00
  22. -- high flags: 2000
  23. -- rect: left=40 top=29 right=64 bottom=75
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 27009 / 27009
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Right
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   visual wipe left
  35.   go next cd
  36. end mouseUp
  37.  
  38.  
  39. -- part 25 (button)
  40. -- low flags: 00
  41. -- high flags: 2000
  42. -- rect: left=3 top=29 right=64 bottom=40
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 9301 / 9301
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Left
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   cleanScreen
  54.   visual wipe right
  55.   go prev cd
  56. end mouseUp
  57.  
  58.  
  59. -- part 28 (button)
  60. -- low flags: 00
  61. -- high flags: 2000
  62. -- rect: left=4 top=317 right=342 bottom=28
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 2299 / 2299
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: 
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   visual zoom in
  74.   go stack "library"
  75.   if result() is empty then
  76.   else
  77.     beep
  78.   end if
  79. end mouseUp
  80.